home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2002 January / PC Answers January 2002.7z / PC Answers January 2002.bin / graphics / freepixl / _SETUP.1 / Colbrfon.pxl < prev    next >
Text File  |  2001-09-14  |  17KB  |  781 lines
  1. {-----------------------------COLBRFONT.pxl---------------------------------
  2.  This program draws a variety of graphic shapes. It illustrates how you 
  3.  can control the background color, the brush color and fill pattern, 
  4.  they line pattern and color, as well as the font style and color. 
  5. ------------------------------------------------------------------------}
  6.  
  7. {Check Windows Version to Establish Font }
  8.     WinVersion(Major,Minor,Build,Pack$)
  9.     WinGetActive(Win$)
  10.     If Major > 3 Then  Win_Fnt$="Roman" |  Ver=0 | Goto Init
  11.     If Minor = 0 Then  Win_Fnt$="Roman" |  Ver=0 | Goto Init
  12.      Win_Fnt$="Times New Roman"
  13.      Ver=1
  14.  
  15. { variable}
  16. Init:
  17.     Delay = 2000
  18.        If Ver=1 Then  Font_C$="&Courier New" |  Font_T$="Ti&mes New Roman"
  19.        If Ver=0 Then  Font_C$="&Courier" |  Font_T$="Tms Rmn"
  20.  
  21. {Maximize the window and set its caption}
  22.        UseCoordinates(PIXEL)
  23.       Title$ = "PiXCL 5.0 Colors, Brushes and Fonts"
  24.       UseCaption(Title$)
  25.        WinLocate(Title$,30,30,920,600,result)
  26.        UseCoordinates(METRIC) {note the change here}
  27. {Initialize variables}
  28.         Br_Red=0      {Blue brush}
  29.         Br_Green=0
  30.         Br_Blue=255
  31.         Curr_BrushC$="&Blue   "
  32.         Prev_BrushC$="&Blue   "
  33.         Br_Type=0     {Solid}
  34.         Curr_BrushP$="&Solid"
  35.         Prev_BrushP$="&Solid"
  36.  
  37.         Pen_Red=0     {Black pen}
  38.         Pen_Green=0
  39.         Pen_Blue=0
  40.         Curr_PenC$="Blac&k  "
  41.         Prev_PenC$="Blac&k  "
  42.         Pen_Type=0    {Solid}
  43.         Curr_PenP$="&Solid narrow"
  44.         Prev_PenP$="&Solid narrow"
  45.    
  46.         Font_Red=0    {Black font}
  47.         Font_Green=0
  48.         Font_Blue=0
  49.         Curr_FontC$="Blac&k "
  50.         Prev_FontC$="Blac&k "
  51.         Font_Type=9   {System font}
  52.         Curr_Font$="&System"
  53.         Prev_Font$="&System"
  54.  
  55.         B_Red=255     {White background}
  56.         B_Green=255
  57.         B_Blue=255
  58.         Curr_BackC$="&White"
  59.         Prev_BackC$="&White"
  60.         B_Type=1      {Transparent}
  61.  
  62.         DirGet(SourceDir$)
  63.         Pattern1$ = SourceDir$ + "\pattern1.bmp"
  64.         Pattern2$ = SourceDir$ + "\pattern2.bmp"
  65.         Pattern3$ = SourceDir$ + "\pattern3.bmp"
  66.         Pattern4$ = SourceDir$ + "\pattern4.bmp"
  67. {
  68.         LoadBitmap(Pattern1$,FULL)
  69.         LoadBitmap(Pattern2$,FULL)
  70.         LoadBitmap(Pattern3$,FULL)
  71.         LoadBitmap(Pattern4$,FULL)
  72. }
  73.  
  74.  
  75.     { Remove Menu Item }
  76.        InfoMenu(REMOVE)
  77.     { up the menu}
  78.       WaitInput(100)    
  79.       SetMenu("&File",IGNORE,
  80.         "E&xit!", Bye,
  81.         ENDPOPUP,
  82.         "&Brush",IGNORE,
  83.         "&Solid",    Brush_Solid,
  84.         "Diagonal &Up", Brush_Diagonalup,
  85.         "Diagonal &Down",  Brush_Diagonaldown,
  86.         "Dia&gonal Cross", Brush_Diagonalcross,
  87.         "&Horizontal",  Brush_Horizontal,
  88.         "&Vertical",    Brush_Vertical,
  89.         "&Cross",    Brush_Cross,
  90.         "&Null   ",     Brush_Null,
  91.         SEPARATOR,
  92.         "&White   ",    Brush_White,
  93.         "&Gray   ",     Brush_Gray,
  94.         "&Red   ",      Brush_Red,
  95.         "&Yellow   ",   Brush_Yel,
  96.         "Gree&n   ",    Brush_Grn,
  97.         "&Light Blue   ",Brush_Ltblu,
  98.         "&Blue   ",     Brush_Blue,
  99.         "&Pink   ",     Brush_Pink,
  100.         "Blac&k   ",    Brush_Black,
  101.         SEPARATOR,
  102.         "Pattern &1",Brush_Pattern1,
  103.         "Pattern &2",Brush_Pattern2,
  104.         "Pattern &3",Brush_Pattern3,
  105.         "Pattern &4",Brush_Pattern4,
  106.         ENDPOPUP,
  107.         "&Pen",IGNORE,
  108.         "&Solid narrow", Pen_Solid_Narrow,
  109.         "Solid &thick", Pen_Solid_Thick,
  110.         "&Dash",     Pen_Dash,
  111.         "D&ot",      Pen_Dot,
  112.         "Da&sh dot", Pen_Dashdot,
  113.         "Dash do&t dot", Pen_Dashdotdot,
  114.         "&Null",     Pen_Null,
  115.         SEPARATOR,
  116.         "&White  ",    Pen_White,
  117.         "&Gray  ",     Pen_Gray,
  118.         "&Red  ",      Pen_Red,
  119.         "&Yellow  ",   Pen_Yel,
  120.         "Gree&n  ",    Pen_Grn,
  121.         "&Light Blue  ",  Pen_Ltblu,
  122.         "&Blue  ",     Pen_Blue,
  123.         "&Pink  ",     Pen_Pink,
  124.         "Blac&k  ",    Pen_Black,
  125.         ENDPOPUP,
  126.         "&Font",IGNORE,
  127.         "&Terminal", Font_Terminal,
  128.         "R&oman",    Font_Roman,
  129.         "&Script",   Font_Script,
  130.         "&Modern",   Font_Modern,
  131.         "&Helv",     Font_Helv,
  132.         Font_C$,  Font_Courier,
  133.         Font_T$,  Font_TmsRmn,
  134.         "S&ymbol",   Font_Symbol,
  135.         "&System",   Font_System,
  136.         SEPARATOR,
  137.         "&White ",   Font_White,
  138.         "&Gray ",    Font_Gray,
  139.         "&Red ",     Font_Red,
  140.         "&Yellow ",  Font_Yel,
  141.         "Gree&n ",   Font_Grn,
  142.         "&Light Blue ",  Font_Ltblu,
  143.         "&Blue ",    Font_Blue,
  144.         "&Pink ",    Font_Pink,
  145.         "Blac&k ",   Font_Black,
  146.         ENDPOPUP,
  147.         "Back&ground",IGNORE,
  148.         "&White",    Back_Col_White,
  149.         "&Gray",     Back_Col_Gray,
  150.         "&Red",      Back_Col_Red,
  151.         "&Yellow",      Back_Col_Yel,
  152.         "Gree&n",    Back_Col_Grn,
  153.         "&Light Blue",  Back_Col_Ltblu,
  154.         "&Blue",     Back_Col_Blue,
  155.         "&Pink",     Back_Col_Pink,
  156.         "Blac&k",    Back_Col_Black,
  157.         SEPARATOR,
  158.         "&Custom", Back_CustomColor,
  159.         ENDPOPUP,
  160.         "&Help",Help,
  161.         ENDPOPUP,
  162.         "&About",About,
  163.         ENDPOPUP)
  164.  
  165.     ChangeMenuItem(Curr_BrushC$,CHECK,temp)
  166.     ChangeMenuItem(Curr_BrushP$,CHECK,temp)
  167.     ChangeMenuItem(Curr_PenC$,CHECK,temp)
  168.     ChangeMenuItem(Curr_PenP$,CHECK,temp)
  169.     ChangeMenuItem(Curr_Font$,CHECK,temp)
  170.     ChangeMenuItem(Curr_FontC$,CHECK,temp)
  171.     ChangeMenuItem(Curr_BackC$,CHECK,temp)
  172.  
  173. { the drawing tools}
  174. _Br:     { the brush}
  175.  
  176. {    Str(Br_Type,Br_Type$)
  177.     MessageBox(OK,1,INFORMATION,Br_Type$,"DEBUG Br_Type",Res)  }
  178.  
  179.     If Br_Type = 0 Then UseBrush(SOLID,Br_Red,Br_Green,Br_Blue) | Goto _Pen
  180.     If Br_Type = 1 Then UseBrush(DIAGONALUP,Br_Red,Br_Green,Br_Blue) | Goto _Pen
  181.     If Br_Type = 2 Then UseBrush(DIAGONALDOWN,Br_Red,Br_Green,Br_Blue) | Goto _Pen
  182.     If Br_Type = 3 Then UseBrush(DIAGONALCROSS,Br_Red,Br_Green,Br_Blue) | Goto _Pen
  183.     If Br_Type = 4 Then UseBrush(HORIZONTAL,Br_Red,Br_Green,Br_Blue) | Goto _Pen
  184.     If Br_Type = 5 Then UseBrush(VERTICAL,Br_Red,Br_Green,Br_Blue) | Goto _Pen
  185.     If Br_Type = 6 Then UseBrush(CROSS,Br_Red,Br_Green,Br_Blue) | Goto _Pen
  186.     If Br_Type = 7 Then UseBrush(NULL,Br_Red,Br_Green,Br_Blue) Goto _Pen
  187.     If Br_Type = 8 Then {pattern brush} Goto _Pen
  188.  
  189.  
  190. _Pen: { the pen}
  191.     If Pen_Type = 0 Then UsePen(SOLID,1,Pen_Red,Pen_Green,Pen_Blue) | Goto _Font
  192.     If Pen_Type = 1 Then UsePen(SOLID,3,Pen_Red,Pen_Green,Pen_Blue) | Goto _Font
  193.     If Pen_Type = 2 Then UsePen(DASH,1,Pen_Red,Pen_Green,Pen_Blue) | Goto _Font
  194.     If Pen_Type = 3 Then UsePen(DOT,1,Pen_Red,Pen_Green,Pen_Blue) | Goto _Font
  195.     If Pen_Type = 4 Then UsePen(DASHDOT,1,Pen_Red,Pen_Green,Pen_Blue) | Goto _Font
  196.     If Pen_Type = 5 Then UsePen(DASHDOTDOT,1,Pen_Red,Pen_Green,Pen_Blue) | Goto _Font
  197.     {ELSE} UsePen(NULL,1,Pen_Red,Pen_Green,Pen_Blue) | Goto _Font
  198.  
  199. _Font:   {Establish the font}
  200.     If Font_Type = 0 Then UseFont("Terminal",0,0,NOBOLD,NOITALIC,NOUNDERLINE,Font_Red,Font_Green,Font_Blue) | Goto Draw
  201.     If Font_Type = 1 Then UseFont("Roman",0,0,NOBOLD,NOITALIC,NOUNDERLINE,Font_Red,Font_Green,Font_Blue) | Goto Draw
  202.     If Font_Type = 2 Then UseFont("Script",3,0,NOBOLD,NOITALIC,NOUNDERLINE,Font_Red,Font_Green,Font_Blue) | Goto Draw
  203.     If Font_Type = 3 Then UseFont("Modern",0,0,NOBOLD,NOITALIC,NOUNDERLINE,Font_Red,Font_Green,Font_Blue) | Goto Draw
  204.     If Font_Type = 4 Then UseFont("Helv",0,0,NOBOLD,NOITALIC,NOUNDERLINE,Font_Red,Font_Green,Font_Blue) | Goto Draw
  205.     If Font_Type = 5 Then If Ver=0 Then UseFont("Courier",0,0,NOBOLD,NOITALIC,NOUNDERLINE,Font_Red,Font_Green,Font_Blue) | Goto Draw
  206.     If Font_Type = 5 Then If Ver=1 Then UseFont("Courier New",0,0,NOBOLD,NOITALIC,NOUNDERLINE,Font_Red,Font_Green,Font_Blue) | Goto Draw
  207.     If Font_Type = 6 Then If Ver=0 Then UseFont("Tms Rmn",0,0,NOBOLD,NOITALIC,NOUNDERLINE,Font_Red,Font_Green,Font_Blue) | Goto Draw
  208.     If Font_Type = 6 Then If Ver=1 Then UseFont("Times New Roman",0,0,NOBOLD,NOITALIC,NOUNDERLINE,Font_Red,Font_Green,Font_Blue) | Goto Draw
  209.     If Font_Type = 7 Then UseFont("Symbol",0,0,NOBOLD,NOITALIC,NOUNDERLINE,Font_Red,Font_Green,Font_Blue) | Goto Draw
  210.     {ELSE} UseFont("System",0,0,NOBOLD,NOITALIC,NOUNDERLINE,Font_Red,Font_Green,Font_Blue)
  211.  
  212. Draw:
  213.     {We'll update the background buffer then redraw everything. This avoids the annoying flashing,
  214.       when the background is written, then the graphics objects are redrawn again. }
  215.     SetDrawMode(BACKGND)
  216.     UseBackground(TRANSPARENT,B_Red,B_Green,B_Blue)
  217.     DrawBackground
  218.  
  219.     DrawPie(0,10,45,40,40,30,13,12)
  220.     DrawText(27,40,"Pie")
  221.     DrawChord(45,10,90,40,85,30,58,12)
  222.     DrawText(67,40,"Chord")
  223.     DrawArc(90,10,135,40,130,30,103,12)
  224.     DrawText(112,40,"Arc")
  225.     DrawLine(150,10,180,32)
  226.     DrawText(157,40,"Line")
  227.  
  228.     DrawEllipse(10,60,55,90)
  229.     DrawText(25,93,"Ellipse")
  230.     DrawRectangle(69,60,114,90)
  231.     DrawText(81,93,"Rectangle")
  232.     DrawRoundRectangle(128,60,173,90,6,6)
  233.     DrawText(133,93,"Round Rectangle")
  234.  
  235.     SetDrawMode(BOTH)
  236.     ReDraw
  237.  
  238. Wait_for_input:
  239.     WaitInput()
  240.  
  241. Help:
  242.     MessageBox(OK,1,INFORMATION,
  243. "This sample program demonstrates some of the
  244. 2D graphics functions available in PiXCL 5.0. When 
  245. you select any of the menu options for brushes, 
  246. pens fonts and backgrounds, the client area is 
  247. redrawn with the new parameters.",
  248.     "Some 2D Graphics Functions.",Res)
  249.     Goto Wait_for_input
  250.  
  251. About:
  252.     AboutUser("PiXCL 5.0 Sample Program",
  253.     "Colors, Brushes, Pens and Fonts", "")
  254.  
  255.     Goto Wait_for_input
  256.  
  257.  
  258. Brush_Solid:
  259.     Curr_BrushP$="&Solid"
  260.     Gosub Brush_Pattern
  261.     Br_Type = 0
  262.     Goto _Br
  263.  
  264. Brush_Diagonalup:
  265.     Curr_BrushP$="Diagonal &Up"
  266.     Gosub Brush_Pattern
  267.     Br_Type = 1
  268.     Goto _Br
  269.  
  270. Brush_Diagonaldown:
  271.     Curr_BrushP$="Diagonal &Down"
  272.     Gosub Brush_Pattern
  273.     Br_Type = 2
  274.     Goto _Br
  275.  
  276. Brush_Diagonalcross:
  277.     Curr_BrushP$="Diagonal &Cross"
  278.     Gosub Brush_Pattern
  279.     Br_Type = 3
  280.     Goto _Br
  281.  
  282. Brush_Horizontal:
  283.     Curr_BrushP$="&Horizontal"
  284.     Gosub Brush_Pattern
  285.     Br_Type = 4
  286.     Goto _Br
  287.  
  288. Brush_Vertical:
  289.     Curr_BrushP$="&Vertical"
  290.     Gosub Brush_Pattern
  291.     Br_Type = 5
  292.     Goto _Br
  293.  
  294. Brush_Cross:
  295.     Curr_BrushP$="&Cross"
  296.     Gosub Brush_Pattern
  297.     Br_Type = 6
  298.     Goto _Br
  299.  
  300. Brush_Null:
  301.     Curr_BrushP$="&Null   "
  302.     Gosub Brush_Pattern
  303.     Br_Type = 7
  304.     Goto _Br
  305.  
  306. Brush_White:
  307.     Curr_BrushC$="&White   "
  308.     Gosub Brush_Color
  309.     Br_Red = 255
  310.     Br_Green = 255
  311.     Br_Blue = 255
  312.     Br_Type = 0 
  313.     Goto _Br
  314.  
  315. Brush_Gray:
  316.     Curr_BrushC$="&Gray   "
  317.     Gosub Brush_Color
  318.     Br_Red = 192
  319.     Br_Green = 192
  320.     Br_Blue = 192
  321.     Br_Type = 0 
  322.     Goto _Br
  323.  
  324. Brush_Red:
  325.     Curr_BrushC$="&Red   "
  326.     Gosub Brush_Color
  327.     Br_Red = 255
  328.     Br_Green = 0
  329.     Br_Blue = 0
  330.     Br_Type = 0 
  331.     Goto _Br
  332.  
  333. Brush_Yel:
  334.     Curr_BrushC$="&Yellow   "
  335.     Gosub Brush_Color
  336.     Br_Red = 255
  337.     Br_Green = 255
  338.     Br_Blue = 0
  339.     Br_Type = 0 
  340.     Goto _Br
  341.  
  342. Brush_Grn:
  343.     Curr_BrushC$="Gree&n   "
  344.     Gosub Brush_Color
  345.     Br_Red = 0
  346.     Br_Green = 255
  347.     Br_Blue = 0
  348.     Br_Type = 0 
  349.     Goto _Br
  350.  
  351. Brush_Ltblu:
  352.     Curr_BrushC$="&Light Blue   "
  353.     Gosub Brush_Color
  354.     Br_Red = 0
  355.     Br_Green = 255
  356.     Br_Blue = 255
  357.     Br_Type = 0 
  358.     Goto _Br
  359.  
  360. Brush_Blue:
  361.     Curr_BrushC$="&Blue   "
  362.     Gosub Brush_Color
  363.     Br_Red = 0
  364.     Br_Green = 0
  365.     Br_Blue = 255
  366.     Br_Type = 0 
  367.     Goto _Br
  368.  
  369. Brush_Pink:
  370.     Curr_BrushC$="&Pink   "
  371.     Gosub Brush_Color
  372.     Br_Red = 255
  373.     Br_Green = 0
  374.     Br_Blue = 255
  375.     Br_Type = 0 
  376.     Goto _Br
  377.  
  378. Brush_Black:
  379.     Curr_BrushC$="Blac&k   "  
  380.     Gosub Brush_Color
  381.     Br_Red = 0
  382.     Br_Green = 0
  383.     Br_Blue = 0
  384.     Br_Type = 0 
  385.     Goto _Br 
  386.  
  387. Brush_Pattern1:
  388.     Curr_BrushC$="Pattern &1"  
  389.     Gosub Brush_Color
  390.     UseBrushPattern(Pattern1$)
  391.     Br_Type = 8
  392.     Goto _Br
  393.  
  394. Brush_Pattern2:
  395.     Curr_BrushC$="Pattern &2"  
  396.     Gosub Brush_Color
  397.     UseBrushPattern(Pattern2$)
  398.     Br_Type = 8
  399.     Goto _Br
  400.  
  401. Brush_Pattern3:
  402.     Curr_BrushC$="Pattern &3"  
  403.     Gosub Brush_Color
  404.     UseBrushPattern(Pattern3$)
  405.     Br_Type = 8
  406.     Goto _Br
  407.  
  408. Brush_Pattern4:
  409.     Curr_BrushC$="Pattern &4"  
  410.     Gosub Brush_Color
  411.     UseBrushPattern(Pattern4$)
  412.     Br_Type = 8
  413.     Goto _Br
  414.  
  415.  
  416. Pen_Solid_Narrow:
  417.     Curr_PenP$="&Solid narrow"
  418.     Gosub Pen_Pattern
  419.     Pen_Type = 0
  420.     Goto _Pen
  421.  
  422. Pen_Solid_Thick:
  423.     Curr_PenP$="Solid &thick"
  424.     Gosub Pen_Pattern
  425.     Pen_Type = 1
  426.     Goto _Pen
  427.  
  428. Pen_Dash:
  429.     Curr_PenP$="&Dash"
  430.     Gosub Pen_Pattern
  431.     Pen_Type = 2
  432.     Goto _Pen
  433.  
  434. Pen_Dot:
  435.     Curr_PenP$="D&ot"
  436.     Gosub Pen_Pattern
  437.     Pen_Type = 3
  438.     Goto _Pen
  439.  
  440. Pen_Dashdot:
  441.     Curr_PenP$="Da&sh dot"
  442.     Gosub Pen_Pattern
  443.     Pen_Type = 4
  444.     Goto _Pen
  445.  
  446. Pen_Dashdotdot:
  447.     Curr_PenP$="Dash do&t dot"
  448.     Gosub Pen_Pattern
  449.     Pen_Type = 5
  450.     Goto _Pen
  451.  
  452. Pen_Null:
  453.     Curr_PenP$="&Null"
  454.     Gosub Pen_Pattern
  455.     Pen_Type = 6
  456.     Goto _Pen
  457.  
  458. Pen_White:
  459.     Curr_PenC$="&White  "
  460.     Gosub Pen_Color
  461.     Pen_Red = 255
  462.     Pen_Green = 255
  463.     Pen_Blue = 255
  464.     Goto _Pen
  465.  
  466. Pen_Gray:
  467.     Curr_PenC$="&Gray  "
  468.     Gosub Pen_Color
  469.     Pen_Red = 192
  470.     Pen_Green = 192
  471.     Pen_Blue = 192
  472.     Goto _Pen
  473.  
  474. Pen_Red:
  475.     Curr_PenC$="&Red  "
  476.     Gosub Pen_Color
  477.     Pen_Red = 255
  478.     Pen_Green = 0
  479.     Pen_Blue = 0
  480.     Goto _Pen
  481.  
  482. Pen_Yel:
  483.     Curr_PenC$="&Yellow  "
  484.     Gosub Pen_Color
  485.     Pen_Red = 255
  486.     Pen_Green = 255
  487.     Pen_Blue = 0
  488.     Goto _Pen
  489.  
  490. Pen_Grn:
  491.     Curr_PenC$="Gree&n  "
  492.     Gosub Pen_Color
  493.     Pen_Red = 0
  494.     Pen_Green = 255
  495.     Pen_Blue = 0
  496.     Goto _Pen
  497.  
  498. Pen_Ltblu:
  499.     Curr_PenC$="&Light Blue  "
  500.     Gosub Pen_Color
  501.     Pen_Red = 0
  502.     Pen_Green = 255
  503.     Pen_Blue = 255
  504.     Goto _Pen
  505.  
  506. Pen_Blue:
  507.     Curr_PenC$="&Blue  "
  508.     Gosub Pen_Color
  509.     Pen_Red = 0
  510.     Pen_Green = 0
  511.     Pen_Blue = 255
  512.     Goto _Pen
  513.  
  514. Pen_Pink:
  515.     Curr_PenC$="&Pink  "
  516.     Gosub Pen_Color
  517.     Pen_Red = 255
  518.     Pen_Green = 0
  519.     Pen_Blue = 255
  520.     Goto _Pen
  521.  
  522. Pen_Black:
  523.     Curr_PenC$="Blac&k  "
  524.     Gosub Pen_Color
  525.     Pen_Red = 0
  526.     Pen_Green = 0
  527.     Pen_Blue = 0
  528.     Goto _Pen
  529.  
  530. Font_Terminal:
  531.     Curr_Font$="&Terminal"
  532.     Gosub Font_Type
  533.     Font_Type = 0
  534.     Goto _Font
  535.  
  536. Font_Roman:
  537.     Curr_Font$="R&oman"
  538.     Gosub Font_Type
  539.     Font_Type = 1
  540.     Goto _Font
  541.  
  542. Font_Script:
  543.     Curr_Font$="&Script"
  544.     Gosub Font_Type
  545.     Font_Type = 2
  546.     Goto _Font
  547.  
  548. Font_Modern:
  549.     Curr_Font$="&Modern"
  550.     Gosub Font_Type
  551.     Font_Type = 3
  552.     Goto _Font
  553.  
  554. Font_Helv:
  555.     Curr_Font$="&Helv"
  556.     Gosub Font_Type
  557.     Font_Type = 4
  558.     Goto _Font
  559.  
  560. Font_Courier:
  561.     If Ver=0 Then  Curr_Font$="&Courier"
  562.     If Ver=1 Then  Curr_Font$="&Courier New"
  563.     Gosub Font_Type
  564.     Font_Type = 5
  565.     Goto _Font
  566.  
  567. Font_TmsRmn:
  568.     If Ver=0 Then  Curr_Font$="T&ms Rmn"
  569.     If Ver=1 Then  Curr_Font$="Ti&mes New Roman"
  570.     Gosub Font_Type
  571.     Font_Type = 6
  572.     Goto _Font
  573.  
  574. Font_Symbol:
  575.     Curr_Font$="S&ymbol"
  576.     Gosub Font_Type
  577.     Font_Type = 7
  578.     Goto _Font
  579.  
  580. Font_System:
  581.     Curr_Font$="&System"
  582.     Gosub Font_Type
  583.     Font_Type = 9
  584.     Goto _Font
  585.  
  586. Font_White:
  587.     Curr_FontC$="&White "
  588.     Gosub Font_Color
  589.     Font_Red = 255
  590.     Font_Green = 255
  591.     Font_Blue = 255
  592.     Goto _Font
  593.  
  594. Font_Gray:
  595.     Curr_FontC$="&Gray "
  596.     Gosub Font_Color
  597.     Font_Red = 192
  598.     Font_Green = 192
  599.     Font_Blue = 192
  600.     Goto _Font
  601.  
  602. Font_Red:
  603.     Curr_FontC$="&Red "
  604.     Gosub Font_Color
  605.     Font_Red = 255
  606.     Font_Green = 0
  607.     Font_Blue = 0
  608.     Goto _Font
  609.  
  610. Font_Yel:
  611.     Curr_FontC$="&Yellow "
  612.     Gosub Font_Color
  613.     Font_Red = 255
  614.     Font_Green = 255
  615.     Font_Blue = 0
  616.     Goto _Font
  617.  
  618. Font_Grn:
  619.     Curr_FontC$="Gree&n "
  620.     Gosub Font_Color
  621.     Font_Red = 0
  622.     Font_Green = 255
  623.     Font_Blue = 0
  624.     Goto _Font
  625.  
  626. Font_Ltblu:
  627.     Curr_FontC$="&Light Blue "
  628.     Gosub Font_Color
  629.     Font_Red = 0
  630.     Font_Green = 255
  631.     Font_Blue = 255
  632.     Goto _Font
  633.  
  634. Font_Blue:
  635.     Curr_FontC$="&Blue "
  636.     Gosub Font_Color
  637.     Font_Red = 0
  638.     Font_Green = 0
  639.     Font_Blue = 255
  640.     Goto _Font
  641.  
  642. Font_Pink:
  643.     Curr_FontC$="&Pink "
  644.     Gosub Font_Color
  645.     Font_Red = 255
  646.     Font_Green = 0
  647.     Font_Blue = 255
  648.     Goto _Font
  649.  
  650. Font_Black:
  651.     Curr_FontC$="Blac&k "
  652.     Gosub Font_Color
  653.     Font_Red = 0
  654.     Font_Green = 0
  655.     Font_Blue = 0
  656.     Goto _Font
  657.  
  658. Back_Col_White:
  659.     Curr_BackC$="&White"
  660.     Gosub Back_Color
  661.     B_Red = 255
  662.     B_Green = 255
  663.     B_Blue = 255
  664.     Goto Draw
  665.  
  666. Back_Col_Gray:
  667.     Curr_BackC$="&Gray"
  668.     Gosub Back_Color
  669.     B_Red = 192
  670.     B_Green = 192
  671.     B_Blue = 192
  672.     Goto Draw
  673.  
  674. Back_Col_Red:
  675.     Curr_BackC$="&Red"
  676.     Gosub Back_Color
  677.     B_Red = 255
  678.     B_Green = 0
  679.     B_Blue = 0
  680.     Goto Draw
  681.  
  682. Back_Col_Yel:
  683.     Curr_BackC$="&Yellow"
  684.     Gosub Back_Color
  685.     B_Red = 255
  686.     B_Green = 255
  687.     B_Blue = 0
  688.     Goto Draw
  689.  
  690. Back_Col_Grn:
  691.     Curr_BackC$="Gree&n"
  692.     Gosub Back_Color
  693.     B_Red = 0
  694.     B_Green = 255
  695.     B_Blue = 0
  696.     Goto Draw
  697.  
  698. Back_Col_Ltblu:
  699.     Curr_BackC$="&Light Blue"
  700.     Gosub Back_Color
  701.     B_Red = 0
  702.     B_Green = 255
  703.     B_Blue = 255
  704.     Goto Draw
  705.  
  706. Back_Col_Blue:
  707.     Curr_BackC$="&Blue"
  708.     Gosub Back_Color
  709.     B_Red = 0
  710.     B_Green = 0
  711.     B_Blue = 255
  712.     Goto Draw
  713.  
  714. Back_Col_Pink:
  715.     Curr_BackC$="&Pink"
  716.     Gosub Back_Color
  717.     B_Red = 255
  718.     B_Green = 0
  719.     B_Blue = 255
  720.     Goto Draw
  721.  
  722. Back_Col_Black:
  723.     Curr_BackC$="Blac&k"
  724.     Gosub Back_Color
  725.     B_Red = 0
  726.     B_Green = 0
  727.     B_Blue = 0
  728.     Goto Draw
  729.  
  730. Back_CustomColor:
  731.     Curr_BackC$="&Custom"
  732.     Gosub Back_Color
  733.     ChooseColor(FULLRGB, B_Red,B_Green,B_Blue)
  734.     Goto Draw
  735.  
  736. Brush_Color:
  737.     ChangeMenuItem(Prev_BrushC$,UNCHECK,temp)
  738.     ChangeMenuItem(Curr_BrushC$,CHECK,temp)
  739.     Prev_BrushC$=Curr_BrushC$
  740.     Return
  741.  
  742. Brush_Pattern:
  743.     ChangeMenuItem(Prev_BrushP$,UNCHECK,temp)
  744.     ChangeMenuItem(Curr_BrushP$,CHECK,temp)
  745.     Prev_BrushP$=Curr_BrushP$
  746.     Return
  747.  
  748. Pen_Color:
  749.     ChangeMenuItem(Prev_PenC$,UNCHECK,temp)
  750.     ChangeMenuItem(Curr_PenC$,CHECK,temp)
  751.     Prev_PenC$=Curr_PenC$
  752.     Return
  753.  
  754. Pen_Pattern:
  755.     ChangeMenuItem(Prev_PenP$,UNCHECK,temp)
  756.     ChangeMenuItem(Curr_PenP$,CHECK,temp)
  757.     Prev_PenP$=Curr_PenP$
  758.     Return
  759.  
  760. Font_Color:
  761.     ChangeMenuItem(Prev_FontC$,UNCHECK,temp)
  762.     ChangeMenuItem(Curr_FontC$,CHECK,temp)
  763.     Prev_FontC$=Curr_FontC$
  764.     Return
  765.  
  766. Font_Type:
  767.     ChangeMenuItem(Prev_Font$,UNCHECK,temp)
  768.     ChangeMenuItem(Curr_Font$,CHECK,temp)
  769.     Prev_Font$=Curr_Font$
  770.     Return
  771.  
  772. Back_Color:
  773.     ChangeMenuItem(Prev_BackC$,UNCHECK,temp)
  774.     ChangeMenuItem(Curr_BackC$,CHECK,temp)
  775.     Prev_BackC$=Curr_BackC$
  776.     Return
  777.  
  778. Bye:
  779.     End
  780.  
  781.